home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
176-200
/
scopedisk185
/
calc
/
calcgadgets.def
< prev
next >
Wrap
Text File
|
1995-03-19
|
806b
|
62 lines
DEFINITION MODULE CalcGadgets;
FROM Intuition IMPORT IntuiMessage, GadgetPtr;
TYPE
Base = (BINA,OCTA,DECI,HEXA);
TYPE
GadgetType = (B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,BA,BB,BC,BD,BE,BF,
LeftParen, (* "(" *)
RightParen, (* ")" *)
SignInvert, (* +/- *)
Equal,
Plus,
Minus,
Times,
Divide,
Bin,
Oct,
Dec,
Hex,
Sto,
Rcl,
ShiftLeft, (* «SH *)
ShiftRight,
RotateLeft, (* «RO *)
RotateRight,
AShiftLeft, (* «AS *)
AShiftRight,
Not,
And,
Or,
Xor,
ClearAll, (* CA *)
ClearEntry); (* CE *)
VAR
base : Base;
resetValue : BOOLEAN;
PROCEDURE InitGadgetStuff(): BOOLEAN;
PROCEDURE HandleGadget(VAR intui:IntuiMessage; gadget:GadgetPtr): INTEGER;
PROCEDURE FakeGadget(gadget:GadgetType): INTEGER;
PROCEDURE GhostUnused();
END CalcGadgets.